home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / glass / glass.lha / GLASS / contsens / mainsk.c < prev    next >
C/C++ Source or Header  |  1991-01-31  |  2KB  |  56 lines

  1.  
  2. /*   Copyright (C) 1990 Riet Oolman
  3.  
  4. This file is part of GLASS.
  5.  
  6. GLASS is free software; you can redistribute it and/or modify
  7. it under the terms of the GNU General Public License as published by
  8. the Free Software Foundation; either version 1, or (at your option)
  9. any later version.
  10.  
  11. GLASS is distributed in the hope that it will be useful,
  12. but WITHOUT ANY WARRANTY; without even the implied warranty of
  13. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14. GNU General Public License for more details.
  15.  
  16. You should have received a copy of the GNU General Public License
  17. along with GLASS; see the file COPYING.  If not, write to
  18. the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  19.  
  20. /* file: mainsk.c
  21.    author: H. Oolman
  22.    last changed: 13-7-'90
  23.    purpose: check if a macro-expanded glass text has fitting connections
  24.             (correct sizes), and replaces : and indexing (given the exact
  25.             sizes)
  26.    modifications:
  27.         p2c translated, tmc access procs
  28. */
  29.  
  30. #include "handleds.h"
  31. #include "check.ds.h"
  32. #include "check.var.h"
  33. #include "check.afuncs.h"
  34. #include "errorenv.h"
  35. #include "size.h"
  36.  
  37. Static def_list glasstext;
  38.  
  39. main(argc,argv)
  40. int argc;
  41. Char *argv[];
  42. { takewarning = false;
  43.   if (fscan_def_list(stdin,&glasstext))
  44.   {fprintf(stderr,"error in input of sk: %s\n",tmerrmsg); exit(1);}
  45.   else
  46.   {
  47.     checksize(glasstext);
  48.     if (errordiscovered) { exit(1L); } 
  49.     else 
  50.     { setprint(stdout,0,256);
  51.       print_def_list(glasstext);
  52.       exit(0L);
  53.     }
  54.   }
  55. }
  56.